5 GOTO10010
10 DATAx[cmþ],0.000001x[mþ],X[mþ]=1e-6*x[cmþ],10,20
20 DATAx[cmþ],0.0610237x[inþ],X[inþ]=.0610237*x[cmþ],10,30
30 DATAx[cmþ],0.0000353147x[ftþ],X[ftþ]=3.53147E-5*x[cmþ],20,40
40 DATAx[cmþ],0.001x[l],X[l]=.001*x[cmþ],30,50
50 DATAx[cmþ],0.000264172x[gal(US)],X[gal(US)]=2.64172E-4*x[cmþ],40,60
60 DATAx[cmþ],0.000219968x[gal(UK)],X[gal(UK)]=2.19968E-4*x[cmþ],50,70
70 DATAx[mþ],1000000x[cmþ],X[cmþ]=1E6*x[mþ],60,80
80 DATAx[mþ],61023.7x[inþ],X[inþ]=61023.7*x[mþ],70,90
90 DATAx[mþ],35.3147x[ftþ],X[ftþ]=35.3147*x[mþ],80,100
100 DATAx[mþ],1000x[l],x[l]=1E3*x[mþ],90,110
110 DATAx[mþ],264.172x[gal(US)],X[gal(US)]=264.172*x[mþ],100,120
120 DATAx[mþ],219.968x[gal(UK)],X[gal(UK)]=219.968*x[mþ],110,130
130 DATAx[inþ],16.3871x[cmþ],X[cmþ]=16.3871*x[inþ],120,140
140 DATAx[inþ],0.0000163871x[mþ],X[mþ]=1.63871E-5*x[inþ],130,150
150 DATAx[inþ],0.000578704x[ftþ],X[ftþ]=.000578704*x[inþ],140,160
160 DATAx[inþ],0.0163871x[l],X[l]=.0163871*x[inþ],150,170
170 DATAx[inþ],0.00432900x[gal(US)],X[gal(US)]=.004329*x[inþ],160,180
180 DATAx[inþ],0.00360464x[gal(UK)],X[gal(UK)]=.00360464*x[inþ],170,190
190 DATAx[ftþ],28316.8x[cmþ],X[cmþ]=28316.8*x[ftþ],180,200
200 DATAx[ftþ],0.0283168x[mþ],X[mþ]=.0283168*x[ftþ],190,210
210 DATAx[ftþ],1728x[inþ],X[inþ]=1728*x[ftþ],200,220
220 DATAx[ftþ],28.3168x[l],X[l]=28.3168*x[ftþ],210,230
230 DATAx[ftþ],7.48052x[gal(US)],X[gal(US)]=7.48052*x[ftþ],220,240
240 DATAx[ftþ],6.22882x[gal(UK)],X[gal(UK)]=6.22882*x[ftþ],230,250
250 DATAx[l],1000x[cmþ],X[cmþ]=1E3*x[l],240,260
260 DATAx[l],0.001x[mþ],X[mþ]=.001*x[l],250,270
270 DATAx[l],61.0237x[inþ],X[inþ]=61.0237*x[l],260,280
280 DATAx[l],0.0353147x[ftþ],X[ftþ]=.0353147*x[l],270,290
290 DATAx[l],0.264172x[gal(US)],X[gal(US)]=.264172*x[l],280,300
300 DATAx[l],0.219968x[gal(UK)],X[gal(UK)]=.219968*x[l],290,300
310 DATAx[gal(US)],3785.41x[cmþ],X[cmþ]=3785.41*x[gal(US)],300,320
320 DATAx[gal(US)],0.00378541x[mþ],X[mþ]=.00378541*x[gal(US)],310,330
330 DATAx[gal(US)],231x[inþ],X[inþ]=231*x[gal(US)],320,340
340 DATAx[gal(US)],0.133681x[ftþ],X[ftþ]=.133681*x[gal(US)],330,350
350 DATAx[gal(US)],3.78541x[l],X[l]=3.78541*x[gal(US)],340,360
360 DATAx[gal(US)],0.832672x[gal(UK)],X[gal(UK)]=0.832672*x[gal(US)],350,370
370 DATAx[gal(UK)],4546.09x[cmþ],X[cmþ]=4546.09*x[gal(UK)],360,380
380 DATAx[gal(UK)],0.00454609x[mþ],X[mþ]=.00454609*x[gal(UK)],370,390
390 DATAx[gal(UK)],277.42x[inþ],X[inþ]=277.42*x[gal(UK)],380,400
400 DATAx[gal(UK)],0.160544x[ftþ],X[ftþ]=.160544*x[gal(UK)],390,410
410 DATAx[gal(UK)],4.54609x[l],X[l]=4.54609*x[gal(UK)],400,420
420 DATAx[gal(UK)],1.20095x[gal(US)],X[gal(US)]=1.20095*x[gal(UK)],410,420
10010 MODE8:DIM:x=10:y=300:r=x
10050 p$="Metric conversion (volume)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" - ";n$;:LOCATE0,0:LOCATE0,1
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IFz=31 ANDr<>c THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150